COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin integer value,flag,eof,brk,nb
C00003 ENDMK
C⊗;
begin integer value,flag,eof,brk,nb;
	label encore;
	define crlf = "'15&'12";
	define tab = "'11";
	nb←-1;
	
	setformat(-1,0);
	open(2,"DSK",8,8,0,400,brk,eof);
	lookup(2,"LSR1.1",flag);
encore:
	nb ← nb+1; outstr(cvos(nb)&tab);
	value ← wordin (2);
	outstr(cvos(value)&tab);
	outstr(cvxstr(value)&tab);
	outstr(cvxstr(value xor '400000000000)&tab);
	outstr(cvastr(value)&crlf);
	go to encore;
end;